home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / Alpha 6.5.sit / Tcl / Menus / thinkRefMenu.tcl < prev    next >
Text File  |  1996-08-15  |  1KB  |  76 lines
  1. #================================================================================
  2. # THINK Ref
  3. #================================================================================
  4.  
  5. if $startingUp {
  6.     set thinkRefMenu    "･265"
  7.     addMenu thinkRefMenu
  8.     return
  9. }
  10.  
  11. proc thinkRefMenu {} {}
  12.  
  13. menu -n $thinkRefMenu {
  14.     "gotoReference"
  15.     "(-"
  16.     "displayTrapTemplate"
  17.     "insertTrapTemplate"
  18.     "/L<O<UlookupTrap"
  19. }
  20.  
  21.  
  22.  
  23. set lastTrap {}
  24.  
  25. proc insertTrapTemplate {} {
  26.     global lastTrap
  27.  
  28.     launchForeAppl DanR
  29.     set text [getSelect]
  30.     if {![string length $text]} {
  31.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  32.     } else {
  33.         deleteText [getPos] [selEnd]
  34.     }
  35.     set lastTrap $text
  36.     set res [AEBuild -r {'DanR'} DanR {TMPL} "----" "ﾒ$textﾓ"]
  37.     regexp {ﾒ.*ﾓ} $res one
  38.     insertText [string trim $one {ﾒﾓ}]
  39. }
  40.  
  41. proc displayTrapTemplate {} {
  42.     global lastTrap
  43.  
  44.     launchForeAppl DanR
  45.     set text {}
  46.     catch {set text [getSelect]}
  47.     if {![string length $text]} {
  48.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  49.     }
  50.     set lastTrap $text
  51.  
  52.     set res [AEBuild -r {'DanR'} DanR {TMPL} "----" "ﾒ$textﾓ"]
  53.     regexp {ﾒ.*ﾓ} $res one
  54.     alertnote [string trim $one {ﾒﾓ}]
  55. }
  56.  
  57. proc lookupTrap {} {
  58.     global lastTrap
  59.  
  60.     launchForeAppl DanR
  61.     set text {}
  62.     catch {set text [getSelect]}
  63.     if {![string length $text]} {
  64.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  65.     }
  66.     set lastTrap $text
  67.     set num 0
  68.     AEBuild {'DanR'} DanR {REF } "----" "ﾒ$textﾓ"
  69. }
  70.  
  71. proc gotoReference {} {
  72.     launchForeAppl DanR
  73. }
  74.  
  75.  
  76.